home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Game-Power
/
Amiga Game-Power.iso
/
anwendungen
/
videodatei
/
dtdbs
/
tdbs3
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1994-05-20
|
21KB
|
502 lines
SCREEN 2,640,200,4,2
WINDOW 2,,,0,2
RANDOMIZE TIMER
DEFLNG a-z
DECLARE FUNCTION opendiskfont&() LIBRARY
LIBRARY "diskfont.library"
LIBRARY "graphics.library"
altfont=PEEKL(WINDOW(8)+52)
neufont$="amber.font"+CHR$(0)
hoehe=19:pref=96
text(0)=SADD(neufont$)
text(1)=(2^16)*hoehe+pref
font=opendiskfont&(VARPTR(text(0)))
IF font<>0 THEN CALL setfont&(WINDOW(8),font)
FOR i=1 TO 5
MENU i,0,1,""
NEXT
MENU ON
FOR i=0 TO 27
PALETTE i,0,0,0
NEXT
OPEN "I",#1,"Held"
WHILE NOT EOF(1)
INPUT #1,spieler$,geld,punkte,mut,waffe$
INPUT #1,kleidung$,geschick,parade,attacke
INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp
WEND
CLOSE #1
start:
CALL freesprite (0)
COLOR 2
1 CLS:LOCATE 3,3
schr$="Du stehst in einem dunkelen, feuchten, etwa zwei Meter":sp(schr$):LOCATE 5,3
schr$="breiten Gang. Dieser fuerht nur nach Sueden. Der Gang":sp(schr$):LOCATE 7,3
schr$="ist komplett aus dem Stein herausgeschlagen, mann koennte":sp(schr$):LOCATE 9,3
schr$="denken Du befindest Dich tief unter der Erde. Es wird schon":sp(schr$):LOCATE 11,3
schr$="relativ warm hier und Du faengst an zu schwitzen":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Du kannst nur nach Sueden < F1 >":sp(schr$):COLOR 2
PALETTE 5,0.93,0.2,0
PALETTE 6,0.4,0.6,1
PALETTE 7,0.8,0.4,0.33
PALETTE 2,1,0.87,0.73
PALETTE 3,1,1,0.13
WHILE 1
getkey x
IF x=1 THEN 2
IF x=11 THEN GOSUB dokument:GOTO 1
WEND
2 CLS:LOCATE 3,3
schr$="Nach einer laengeren Wegstrecke kommst Du an eine Kreuzung.":sp(schr$):LOCATE 5,3
schr$="Der Gang teilt sich hier in vier Wegrichtungen; nach Norden,":sp(schr$):LOCATE 7,3
schr$="nach Osten, nach Sueden und nach Westen":sp(schr$):LOCATE 10,3:COLOR 3
schr$="Willst Du nach Norden < F1 >":sp(schr$):LOCATE 12,3
schr$="Gehst Du lieber nach Osten? < F2 >":sp(schr$):LOCATE 14,3
schr$="Ist der sonnige Sueden angesagt? < F3 >":sp(schr$):LOCATE 16,3
schr$="Oder willst Du nach Westen < F4 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 1
IF x=2 THEN 3
IF x=3 THEN 4
IF x=4 THEN 5
IF x=11 THEN GOSUB dokument:GOTO 2
WEND
3 CLS:LOCATE 3,3
schr$="Der Gang, auf dem Du Dich zur Zeit befindest, teilt sich":sp(schr$):LOCATE 5,3
schr$="nach einiger Zeit. Er fuehrt nach Sueden, Osten und Westen.":sp(schr$):LOCATE 7,3
schr$="Der Gang ist wie alle anderen Gaenge hier! Also er ist feucht, ca.":sp(schr$):LOCATE 9,3
schr$="2 Meter breit usw. Nun liegt es an Dir wo Du langgehen willst.":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Nach Osten geht es mit < F1 >":sp(schr$):LOCATE 14,3
schr$="In den Sueden geht es mit < F2 >":sp(schr$):LOCATE 16,3
schr$="Willst Du nach Westen druecke < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 6
IF x=2 THEN 9
IF x=3 THEN 2
IF x=11 THEN GOSUB dokument:GOTO 3
WEND
4 CLS:LOCATE 3,3
schr$="Du stehst in einem Gang, der sich in drei Richtungen":sp(schr$):LOCATE 5,3
schr$="weiterfuehrt. Es geht nach Sueden, Osten und nach Norden.":sp(schr$):LOCATE 7,3
schr$="Was Dir an diesem Gang besonders auffaellt, ist das der":sp(schr$):LOCATE 9,3
schr$="Boden besonders stark mit Mosen und Algen bewachsen ist!":sp(schr$):LOCATE 12,3:COLOR 3
schr$="< F1 > bringt Dich nach Norden":sp(schr$):LOCATE 14,3
schr$="Mit < F2 > geht es nach Sueden":sp(schr$):LOCATE 16,3
schr$="Du kannst auch nach Osten < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 2
IF x=2 THEN 10
IF x=3 THEN 9
IF x=11 THEN GOSUB dokument:GOTO 4
WEND
5 CLS:LOCATE 3,3
schr$="Dieser Gang fuehrt nur nach Westen und nach Osten!":sp(schr$):LOCATE 5,3
schr$="Im Westen siehst Du eine schwache Lichtquelle und Dir steigt":sp(schr$):LOCATE 7,3
schr$="der wohlbekannt Geruch von zartem, gebratenen Fleisch mit ":sp(schr$):LOCATE 9,3
schr$="Gemuese in die Nase, es riecht herrlicht. So langsam laueft":sp(schr$):LOCATE 11,3
schr$="Dir ja das Wasser im Mund zusammen!":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Willst Du deinem Geschmack folgen und zum Essen gehen < F1 >":sp(schr$):LOCATE 16,3
schr$="Oder willst Du lieber wieder zurueck gehen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 11
IF x=2 THEN 2
IF x=11 THEN GOSUB dokument:GOTO 5
WEND
6 CLS:LOCATE 3,3
schr$="Du kommst in eine grosse Tropfsteinhoehle, deren Ausmasse":sp(schr$):LOCATE 5,3
schr$="Du bei diesem schwachen Licht nur ahnen kannst. Aus dunklen":sp(schr$):LOCATE 7,3
schr$="Nischen huschen Fledermaeuse an Dir vorbei, um woanders ":sp(schr$):LOCATE 9,3
schr$="wieder im Dunkeln zu verschwinden. Du bist fasziniert von":sp(schr$):LOCATE 11,3
schr$="der Schoenheit der Tropfsteingebilde, die hier im Laufe von":sp(schr$):LOCATE 13,3
schr$="Jahrtausenden entstanden sind.":sp(schr$):LOCATE 15,3
schr$="Dann wird Deine Aufmerksamkeit von einer Schwachen Licht-":sp(schr$):LOCATE 17,3
schr$="quelle erregt. Quer ueber den ganzen Hoehlenboden zieht sich":sp(schr$):LOCATE 19,3
schr$="etwa ein zehn Meter breiter Streifen einer seltsamer, matt ":sp(schr$):LOCATE 21,3
schr$="leuchtender Substanz":sp(schr$):SLEEP:SLEEP:SLEEP:CLS:LOCATE 3,3
schr$="Lueckenlos ist der Boden davon bedeckt; einige Stalagmiten":sp(schr$):LOCATE 5,3
schr$="ragen aus der Substanz hervor. In dem schwachen Lichtschein":sp(schr$):LOCATE 7,3
schr$="kannst Du erkennen, dass die Hoehlendecke in diesem Bereich":sp(schr$):LOCATE 9,3
schr$="mit zahlreichen nadelspitzen Stalakiten versehen ist, von ":sp(schr$):LOCATE 11,3
schr$="denen manche so eine schmale Basis haben, dass sie jeden Moment":sp(schr$):LOCATE 13,3
schr$="herabzustuerzen drohen.":sp(schr$):LOCATE 15,3
schr$="Was dieser Hoehle aber eine besonders schaurige, beklemmende":sp(schr$):LOCATE 17,3
schr$="Stimmung verleiht, ist die Tatsache, dass an dem Rand des ":sp(schr$):LOCATE 19,3
schr$="seltsamen Stoffes, der sich hier ueber den Boden hinzieht, ":sp(schr$):LOCATE 21,3
schr$="einige Skelette und menschliche Ueberreste liegen":sp(schr$):SLEEP:SLEEP:SLEEP:CLS:LOCATE 3,3
schr$="Das heisst, eigentlich kann man die Haltung nicht liegen nen-":sp(schr$):LOCATE 5,3
schr$="nen, denn die Gerippe sind in merkwuerdigen Posen zusammen-":sp(schr$):LOCATE 7,3
schr$="gesunken. Anderswo ragen in unglaublichen - jedem Gesezt der":sp(schr$):LOCATE 9,3
schr$="der Schwerkraft wiedersprechenden - Stellungen Gegenstaende":sp(schr$):LOCATE 11,3
schr$="aus diesem Stoff hervor: Lanzen, die nur mit der Spitze den":sp(schr$):LOCATE 13,3
schr$="Boden beruehen, ohne umzufallen usw.":sp(schr$):LOCATE 16,3:COLOR 3
schr$="Du kannst die Hoehle weiter untersuchen, < F1 >":sp(schr$):LOCATE 18,3
schr$="Oder wieder verlassen < F2 >":sp(schr$):LOCATE 20,3
schr$="Willst Du versuchen die Substanz zu ueberqueren? < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 100
IF x=2 THEN 3
IF x=3 THEN 102
IF x=11 THEN GOSUB dokument:GOTO 6
WEND
7 CLS:LOCATE 3,3
schr$="Du kommst jetzt in den anderen Teil der Tropfsteinhoehle.":sp(schr$):LOCATE 5,3
schr$="Von hier fuehren zwei Wege weg: nach Westen und nach Sueden":sp(schr$):LOCATE 7,3
schr$="In der Ferne hoerst Du ein rummpeln, das schnell an laut-":sp(schr$):LOCATE 9,3
schr$="staerke zunimmt - Nein es ist nicht irgendeine Heavy Metal":sp(schr$):LOCATE 11,3
schr$="Band die sich hierher verlaufen hat - es ist vielmehr ein -":sp(schr$):LOCATE 13,3
schr$="Oh nein - ein Hoehlenbaer, der genau auf Dich zukommt.":sp(schr$)
IF gf=1 THEN 113
monstername$="Hoehlenbaer":monsterattacke=15:monsterparade=12:monstertrefferpunkte=7
monsterpunkte=26:monsterlebensenergie=30:SLEEP:SLEEP:SLEEP:i=3:gf=1:GOTO kampf
8 CLS:LOCATE 3,3:COLOR 7
schr$="Du folgst einem langem Gang, der sich so scheint es immer":sp(schr$):LOCATE 5,3
schr$="mehr nach oben windet. Ueber viele Treppen steigst Du ":sp(schr$):LOCATE 7,3
schr$="hoch hinauf, bis Du aufeinmal Tageslicht entdeckst! Ja ":sp(schr$):LOCATE 9,3
schr$="ist es denn die Moeglichkeit? Du bist wieder im freien!":sp(schr$):LOCATE 11,3
schr$="So nun aber nichts wie hin zu der naechsten Stadt und den":sp(schr$):LOCATE 13,3
schr$="Moerder deines besten Freundes suchen ...":sp(schr$):SLEEP:SLEEP:SLEEP
OPEN "Held" FOR OUTPUT AS #1
WRITE #1,spieler$,geld,punkte,mut,waffe$
WRITE #1,kleidung$,geschick,parade,attacke
WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp
CLOSE #1
LOAD "TDBS4",r
9 CLS:LOCATE 3,3
schr$="Du stehst in einem Gang, der sich in drei Richtungen teilt;":sp(schr$):LOCATE 5,3
schr$="Es geht nach Norden, Sueden und nach Westen. Nun stellt sich":sp(schr$):LOCATE 7,3
schr$="Dir die Frage in welche Richtung Du gehen sollst:":sp(schr$):LOCATE 10,3:COLOR 3
schr$="Du gehst nach Norden < F1 >":sp(schr$):LOCATE 12,3
schr$="Du gehst lieber nach Sueden < F2 >":sp(schr$):LOCATE 14,3
schr$="Du entscheidest dich fuer Westen < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 3
IF x=2 THEN 12
IF x=3 THEN 4
IF x=11 THEN GOSUB dokument:GOTO 9
WEND
10 CLS:LOCATE 3,3
schr$="Du befindest Dich in einem Gang der von Norden nach Sueden":sp(schr$):LOCATE 5,3
schr$="verlaueft. Dir faellt auf, dass der Boden des Ganges aus ":sp(schr$):LOCATE 7,3
schr$="grossen, rechteckigen Steinplatten besteht. Nach ein paar":sp(schr$):LOCATE 9,3
schr$="Metern entdeckst Du, dass ein Hebel aus der Wand ragt - und":sp(schr$):LOCATE 11,3
schr$="nach vier Metern ein weiterer Hebel. Zwischen den laueft ein":sp(schr$):LOCATE 13,3
schr$="ungefair 30 cm hoher Steinwulst quer ueber den Boden.":sp(schr$):LOCATE 16,3:COLOR 3
schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 18,3
schr$="Du kannst nach Sueden < F2 >":sp(schr$):LOCATE 20,3
schr$="Du kannst den Hebel nach unten ziehen < F3 >":sp(schr$):LOCATE 22,3
schr$="Du kannst den Hebel auch nach oben druecken < F4 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 4
IF x=2 THEN 13
IF x=3 THEN 106
IF x=4 THEN 107
IF x=11 THEN GOSUB dokument:GOTO 10
WEND
11 CLS:LOCATE 3,1
schr$="Na ja, Du befindest Dich jetzt in einer Hoehle von ungefair":sp(schr$):LOCATE 5,1
schr$="10x8 Metern groesse. In der Mitte der Hoehle steht ein grosser":sp(schr$):LOCATE 7,1
schr$="Kessel, in dem eine herzhafte Suppe kocht. Ansonsten bitet die":sp(schr$):LOCATE 9,1
schr$="Hoehle noch zwei Schlafstaetten aus Stroh und neben der einen":sp(schr$):LOCATE 11,1
schr$="steht eine grosse Keule, gemacht auch einem wohl riesiegem ":sp(schr$):LOCATE 13,1
schr$="Knochen von irgendeinem Tier.":sp(schr$):LOCATE 15,1
schr$="Die Hoehle hat nur einen Ausgang nach Osten hin!":sp(schr$):LOCATE 17,1
IF kam=1 THEN GOTO 103
schr$="Als Du Dir noch so die Hoehle - es ist uebrigens eine Wohn-":sp(schr$):LOCATE 19,1
schr$="staette von einer Bergtrollfamilie - anschaust, merkst Du":sp(schr$):LOCATE 21,1
schr$="ueberhaupt nicht, als aufeinmal ein Bergtroll hinter Dir steht!":sp(schr$)
SLEEP:SLEEP:SLEEP:monstername$="Bergtroll":monsterattacke=10:monsterparade=5:monstertrefferpunkte=5
monsterpunkte=25:monsterlebensenergie=30:kam=1:i=1:GOTO kampf
12 CLS:LOCATE 3,3
schr$="Du befindest Dich in einem ca. 4x5 Meter grossem Raum.":sp(schr$):LOCATE 5,3
schr$="mit nur einem Ausgang in der Nordwand. Ausser einem Brun-":sp(schr$):LOCATE 7,3
schr$="nen, der in der Mitte des Raumes steht, enhaelt der Raum":sp(schr$):LOCATE 9,3
schr$="keine weiteren Gegenstaende.":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Du kannst den Raum wieder verlassen < F1 >":sp(schr$):LOCATE 14,3
schr$="Willst Du Wasser aus dem Brunnen trinken? < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 9
IF x=2 THEN 112
IF x=11 THEN GOSUB dokument:GOTO 12
WEND
13 CLS:LOCATE 3,3
schr$="Du stehst in einem Kreisrunden Raum, mit nur einem Ausgang":sp(schr$):LOCATE 5,3
schr$="nach Norden. Die Waende sind alle mit verschiedenen Symbolen":sp(schr$):LOCATE 7,3
schr$="und Zeichen bemalt. Der Ganze Raum wirk sehr unheimlich, dar":sp(schr$):LOCATE 9,3
schr$="es so scheint als ob aus einigen Zeichen Licht heraustritt.":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Wenn Du willst kannst Du den Raum wieder verlassen < F1 >":sp(schr$):LOCATE 14,3
schr$="Oder willst Du den Raum nochmal genauer untersuchen? < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 10
IF x=2 THEN 111
IF x=11 THEN GOSUB dokument:GOTO 13
WEND
100 CLS:LOCATE 3,3
schr$="Der Boden ist uneben und stellenweise glizschig, Stalagmiten":sp(schr$):LOCATE 5,3
schr$="behindern Dich. In den zahlreichen Nischen und Spalten gibt es":sp(schr$):LOCATE 7,3
schr$="nichts Besonderes zu entdecken.":sp(schr$):LOCATE 9,3
schr$="Du hast Dich jetzt dem breiten Streifen genaehrt, der von ":sp(schr$):LOCATE 9,3
schr$="Wand zu Wand den Hoehlenboden lueckenlos bedeckt. Die selt-":sp(schr$):LOCATE 11,3
schr$="same Substanz strahl ein schwaches Licht aus. Der suessliche":sp(schr$):LOCATE 13,3
schr$="Verwesungsgeruch und die merkwuerdig hingekauerten Toten lassen":sp(schr$):LOCATE 15,3
schr$="Dich erschauern.":sp(schr$):LOCATE 18,3:COLOR 3
schr$="Willst Du den Streifen naeher untersuchen < F1 >":sp(schr$):LOCATE 20,3
schr$="oder lieber die Hoehle verlassen? < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 101
IF x=2 THEN 3
IF x=11 THEN GOSUB dokument:GOTO 100
WEND
101 CLS:LOCATE 3,3
schr$="Furcht und Vorischt halten Dich davon ab, diesen Streifen zu":sp(schr$):LOCATE 5,3
schr$="betreten. Du erinnerst dich, eben bei einer der Leichen eine":sp(schr$):LOCATE 7,3
schr$="rostige Machete gesehen zu haben. Du holst sie und willst ":sp(schr$):LOCATE 9,3
schr$="damit in der Substanz herumstochern, aber sobald die Machete":sp(schr$):LOCATE 11,3
schr$="den Stoff beruehrt hat, klebt sie an der Masse fest. Auch mit":sp(schr$):LOCATE 13,3
schr$="auesserster Kraftanstrengung gelingt es Dir nicht, die Machete":sp(schr$):LOCATE 15,3
schr$="wieder loszubekommen.":sp(schr$):LOCATE 18,3:COLOR 3
schr$="Willst Du ueber die Substanz gehen < F1 >":sp(schr$):LOCATE 20,3
schr$="Willst Du die Hoehle lieber verlassen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 102
IF x=2 THEN 3
IF x=11 THEN GOSUB dokument:GOTO 1
WEND
102 IF wort=1 THEN 7
CLS:LOCATE 3,1
schr$="Gerade als Du die Substanz betrittst, bleibst Du daran kleben!":sp(schr$):LOCATE 5,1
schr$="Du versuchst Dich loszumachen, verfaengst Dich aber immer mehr":sp(schr$):LOCATE 7,1
schr$="in dem Klebstoff! - Tja so endet dann auch mal ein Heldenleben!":sp(schr$)
SLEEP:SLEEP:SLEEP:GOTO schluss
103 LOCATE 17,1
schr$="Neben Dir liegt ein toter Bergtroll!":sp(schr$):LOCATE 19,1:COLOR 3
schr$="Du kannst die Suppe essen < F1 >":sp(schr$):LOCATE 21,1
schr$="oder die Hoehle wieder verlassen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 104
IF x=2 THEN 5
IF x=11 THEN GOSUB dokument:GOTO 11
WEND
104 IF essen=1 THEN 105
CLS:LOCATE 3,3
schr$="Du kostest die Suppe und musst sagen dass sie sehr gut":sp(schr$):LOCATE 5,3
schr$="schmeckt. Mhmm.. Du isst gleich alles auf. Und nahhaft!":sp(schr$):LOCATE 7,3
schr$="Dr. Oetker wuerde vor neid erblassen!! Die Suppe ist einfach":sp(schr$):LOCATE 9,3
schr$="ein Gedicht":sp(schr$):charisma=charisma+1:lebensenergie=lebensenergie+4:mut=mut+2:kraft=kraft+2
attacke=attacke+2:parade=parade+1:punkte=punkte+2:intelligenz=intelligenz+1:geschick=geschick+1
essen=1:SLEEP:SLEEP:SLEEP:GOTO 11
105 CLS:LOCATE 3,3
schr$="Tja so'ne Scheisse, da frisst er die Suppe mit einmal ":sp(schr$):LOCATE 5,3
schr$="auf und laesst den anderen nichts mehr uebrig. Alter":sp(schr$):LOCATE 7,3
schr$="Ego!!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 11
106 CLS:LOCATE 3,3
schr$="Nichts passiert!":sp(schr$):LOCATE 6,3:COLOR 3
schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 8,3
schr$="Du kannst auch nach Sueden gehen < F2 >":sp(schr$):LOCATE 10,3
schr$="Den Hebel kannst Du noch nach oben druecken < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 4
IF x=2 THEN 13
IF x=3 THEN 107
IF x=11 THEN GOSUB dokument:GOTO 6
WEND
107 CLS:LOCATE 3,3
schr$="Vor Dir klappt auf der vollen Breite des Ganges der":sp(schr$):LOCATE 5,3
schr$="Boden bis zu dem Wulst nach unten weg. Ein schwarzes":sp(schr$):LOCATE 7,3
schr$="Loch tut sich auf. Du beugst Dich vorsichtig ueber den ":sp(schr$):LOCATE 9,3
schr$="Rand und schauen in die Grube. Ein Knaeuel von giftigen":sp(schr$):LOCATE 11,3
schr$="Guertelschlangen windet sich auf dem Boden der etwa zwei":sp(schr$):LOCATE 13,3
schr$="Meter tiefen Gruebe.":sp(schr$):LOCATE 16,3:COLOR 3
schr$="Du kannst ja ueber die Grube springen < F1 >":sp(schr$):LOCATE 18,3
schr$="Du kannst auch noch nach Norden < F2 >":sp(schr$):LOCATE 20,3
schr$="Oder willst Du den Hebel nochmal betaetigen? < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 108
IF x=2 THEN 4
IF x=3 THEN 109
IF x=11 THEN GOSUB dokument:GOTO 6
WEND
108 x=INT(RND*(20+1))+5
IF x<kraft THEN 110
CLS:LOCATE 3,3
schr$="Da Du Schlappsack es wieder nicht geschaft hast ueber so":sp(schr$):LOCATE 5,3
schr$="eine keine Grube zu springen musst Du jetzt eben mit den":sp(schr$):LOCATE 7,3
schr$="Guertelschlangen kaempfen.":sp(schr$):i=2:monstername$="Guertelschlange":monsterattacke=10
monsterparade=8:monsterlebensenergie=15:monsterpunkte=7:SLEEP:SLEEP:SLEEP:GOTO kampf
109 CLS:LOCATE 3,3
schr$="Die Falltuer ueber der Schlangengrube schliesst sich wieder.":sp(schr$):LOCATE 5,3
schr$="Du kannst jetzt nach Norden und nach Sueden gehen!":sp(schr$):LOCATE 8,3:COLOR 3
schr$="Mit < F1 > gehst Du nach Norden":sp(schr$):LOCATE 10,3
schr$="Du kannst nach Sueden < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 4
IF x=2 THEN 13
IF x=11 THEN GOSUB dokument:GOTO 109
WEND
110 CLS:LOCATE 3,3
schr$="Du bist toll, Du hast es tatsaechlich geschafft ueber die":sp(schr$):LOCATE 5,3
schr$="Schlangengrube zu springen !!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 13
111 CLS:LOCATE 3,3
schr$="Als Du den Raum genauer untersuchst liesst du unteranderem":sp(schr$):LOCATE 5,3
schr$="folgendes:`Achtung vor der Tropfsteinhoehle'.Weiter erkennst":sp(schr$):LOCATE 7,3
schr$="Du noch ein Wort, mit dem Du aber nichts weiter anfangen ":sp(schr$):LOCATE 9,3
schr$="kannst. ":SLEEP:SLEEP:SLEEP:wort=1:GOTO 13
112 CLS:LOCATE 3,3
schr$="Kurze Zeit spaeter, nachdem Du das Wasser getrunken hast":sp(schr$):LOCATE 5,3
schr$="merkst Du erst, dass es vergiftet war. Na so ein Pech fuer":sp(schr$):LOCATE 7,3
schr$="Dich. Du windest Dich vor Schmerzen auf dem Boden, haellst":sp(schr$):LOCATE 9,3
schr$="Dir den Bauch - doch ploetzlich ist alles wieder vorbei!":sp(schr$):LOCATE 11,3
schr$="War es nur ein boeser Traum ?":sp(schr$)
SLEEP:SLEEP:SLEEP
lebensenergie=lebensenergie-5
IF lebensenergie<=0 THEN schluss
GOTO 12
113 LOCATE 7,3
schr$="Neben Dir liegt jetzt ein toter Hoehlenbaer, und Du bist ":sp(schr$):LOCATE 9,3
schr$="froh, das Du noch lebst, denn mit diesen Bestien ist nicht ":sp(schr$):LOCATE 11,3
schr$="zu spassen!! ":sp(schr$):LOCATE 13,3:COLOR 3
schr$=" ":sp(schr$):LOCATE 14,3
schr$="Du kannst nach Sueden gehen < F1 >":sp(schr$):LOCATE 16,3
schr$="Es geht auch noch nach Westen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN 8
IF x=2 THEN 6
IF x=3 THEN GOSUB dokument:GOTO 7
WEND
260 COLOR 2
IF i=1 THEN 11
IF i=2 THEN 10
IF i=3 THEN 7
REM ********************
REM ** unterprogramme **
REM ********************
SUB sp(schr$) STATIC
CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
END SUB
SUB getkey (keynumber) STATIC
in$=""
WHILE in$=""
SLEEP
in$=INKEY$
WEND
keynumber=ASC(in$)-128
IF keynumber<1 OR keynumer>10 THEN keynumber=0
END SUB
dokument:
CLS:LOCATE 3,3
PRINT "Name: ";spieler$
LOCATE 5,3:COLOR 6
PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade
LOCATE 19,3:COLOR 5
PRINT "Lebensenergie:";TAB(25);lebensenergie
COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT kleidung$
COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
COLOR 2
SLEEP:SLEEP
WHILE a$=""
a$=INKEY$
WEND
RETURN
schluss:
CLS:LOCATE 3,3:COLOR 7
PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
PRINT " dieser Entwickling betrachten: Du hast es hinter Dir,"
PRINT " niemand kann Dich mehr quaelen und demuetigen..."
PRINT:PRINT" Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
COLOR 3:PRINT:PRINT"Noch ein Spiel?"
PRINT " < F1 > Na klar, ich bin doch kein looser"
PRINT " < F2 > So ein scheiss Spiel, schnell weg"
WHILE 1
getkey x
IF x=1 THEN LOAD"TDBS",r
IF x=2 THEN SYSTEM
WEND
an:
COLOR 6
IF lebensenergie<=0 THEN schluss
IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260
LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
COLOR 5
LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
RETURN
kampf:
CLS:LOCATE 3,3:COLOR 7
PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
WHILE 1
duatt:
x=INT(RND*(20+1))
IF x<attacke THEN GOTO monstpa
IF x>attacke THEN GOTO monstatt
dupa:
y=INT(RND*(20+1))
IF y<parade THEN GOSUB an:GOTO duatt
IF y>parade THEN lebensenergie=lebensenergie-monstertrefferpunkte:GOSUB an:GOTO duatt
monstatt:
x=INT(RND*(20+1))
IF x<monsterattacke THEN GOSUB an:GOTO dupa
IF x>monsterattacke THEN GOSUB an:GOTO duatt
monstpa:
y=INT(RND*(20+1))
IF y<monsterparade THEN GOSUB an:GOTO monstatt
IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
WEND